www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\functionLIB.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<%


' ************************************************************* 
' 类名称： files 
' 类功能: 实现文件读写功能，利用adodb.stream实现,在不支持fso的主机上也可以读写文件. 
'************************************************************* 

class files 


private adSaveCreateOverWrite '创建文件的时候可以覆盖已经存在的文件. 
private adSaveCreateNotExist  '保存文件的时候如果文件不存在，可以创建文件. 


'************************************************************* 
' 事件名称： Class_Initialize() 
' 事件发生条件： 类创建时候产生该事件 
' 事件内容: 给私有变量赋值 
' 事件传入参数: 无 
'************************************************************* 


sub Class_Initialize() 
adSaveCreateOverWrite =2 
adSaveCreateNotExist = 1 
end sub 


'************************************************************* 
' 函数名称: function readfile(filepath) 
' 函数内容: 读出文件 
' 传入参数: filepath:要读的文件的绝对路径 
' 返回参数: 要读的文件的内容. 
'************************************************************* 
function readfile(filepath) 


'on error resume next 

dim stm2 


set stm2 =server.createobject("ADODB.Stream") 
stm2.Charset = "gb2312" 
stm2.Open 
stm2.LoadFromFile filepath 
readfile = stm2.ReadText 
end function 


'************************************************************* 
' 函数名称: function writefile(filepath,str) 
' 函数内容: 写入文件 
' 传入参数: filepath:要读的文件的绝对路径 
' str: 要写入的内容 
' 返回参数: 无返回 
'************************************************************* 


function writefile(filepath,str) 


'on error resume next 


Set stm = server.createobject("ADODB.Stream") 
stm.Charset = "gb2312" 
stm.Open 
stm.WriteText str 
stm.SaveToFile filepath, adSaveCreateOverWrite 
end function 

 

'************************************************************* 
'函数名称: function copy(filepath_s,filepath_d) 
' 函数内容: 读出文件 
'传入参数: filepath_d:目的文件的绝对路径 
' filepath_s:源文件路径 
'************************************************************* 
function copy(filepath_s,filepath_d) 
on error resume next 
dim stm2 
set stm2 =server.createobject("ADODB.Stream") 
stm2.Charset = "gb2312" 
stm2.Open 
stm2.LoadFromFile filepath_s 
stm2.SaveToFile filepath_d, adSaveCreateOverWrite 
end function 


end class 

%>